home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Sample Code / Newton Sample Code 1.2 / System Data / PreeferMadness-4 / Project Data < prev    next >
Encoding:
Text File  |  1994-07-07  |  2.3 KB  |  88 lines  |  [TEXT/ttxt]
  1. // Copyright © 1993, 1994 Apple Computer, Inc. All rights reserved.
  2. /*
  3.  
  4.  project data for PreeferMadness
  5.  
  6.  */
  7.  
  8. // application constants
  9.  
  10. constant kAppSymbol   := '|Preefer:PIEDTS|;
  11. constant kAppString   := "Preefer:PIEDTS";
  12. constant kPackageName := kAppString;
  13.  
  14. constant kAppName := "Preefer Madness" ;
  15.  
  16. constant kAppMaxWidth := 240 ;
  17. constant kAppMaxHeight := 336 ;
  18.  
  19. // prefs constants
  20.  
  21. DefConst('kPrefsFrame,
  22.     {tag: kAppString,
  23.      version: 1,
  24.      startWithSound: nil,
  25.      onePrefOnly: true,
  26.      philospherIndex: 0,
  27.      });
  28.  
  29.  
  30.  
  31. // philisophical constants
  32. DefConst('kPhilPicker, 
  33.                 ["None", 'pickSeparator, "Plato", "Aristotle",
  34.                 "Descartes", "Mill", "Tsunemoto", "Nietzsche",
  35.                 "Marx", "Wittgenstien", "Heidegger", "Russell", "Popper", "Dr. Llama"]) ;
  36.  
  37.  
  38. InstallScript := func(partFrame)
  39. begin
  40.     /* AUTO PART: if you have an auto part that requires preferences
  41.                       you would add them to the system preferences roll.
  42.                       This bit of code shows you how...
  43.  
  44.     //install preferences template in preferences global
  45.     partFrame.prefsTemplate := Clone(partFrame.theForm.PT_PreeferAutoPrefsItem);
  46.     AddArraySlot(Preferences,partFrame.prefsTemplate);
  47.     
  48.     //if Prefs is open - force update to show our entry
  49.     if GetRoot().preferenceRoll.viewCObject then
  50.         GetRoot().preferenceRoll:RedoChildren();                  
  51.  
  52.     */
  53.  
  54.  
  55.   //install formula template in formulaList global
  56.   partFrame.formulaTemplate := Clone(partFrame.theForm.PT_PreeferFormulaItem);
  57.   AddArraySlot(FormulaList,partFrame.formulaTemplate);
  58.  
  59.   //if Formulas is open - force update to show our entry
  60.   if GetRoot().formulaRoll.viewCObject then GetRoot().formulaRoll:RedoChildren();
  61.  
  62. end;
  63.  
  64.  
  65. RemoveScript := func(partFrame)
  66. begin
  67.     /* AUTO PART: if you have an auto part that requires preferences
  68.                       you would remove your preference from the system
  69.                       preferences roll, this bit of code shows you how...
  70.  
  71.     //remove preferences template from preferences global
  72.     SetRemove(Preferences,partFrame.prefsTemplate);
  73.     
  74.     //if Prefs is open - force update to remove our entry
  75.     if GetRoot().preferenceRoll.viewCObject then
  76.         GetRoot().preferenceRoll:RedoChildren();
  77.                                        
  78.     */
  79.  
  80.  
  81.     //remove formula template from formulaList global
  82.     SetRemove(FormulaList,partFrame.formulaTemplate);
  83.     
  84.     //if Formulas is open - force update to remove our entry
  85.     if GetRoot().formulaRoll.viewCObject then GetRoot().formulaRoll:RedoChildren();
  86.  
  87. end;
  88.